home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cstatus.frm < prev    next >
Text File  |  1995-05-22  |  6KB  |  164 lines

  1. VERSION 2.00
  2. Begin Form frmStatus 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Status Bar Demo"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   1170
  7.    ClientTop       =   2775
  8.    ClientWidth     =   8025
  9.    ClipControls    =   0   'False
  10.    Height          =   1800
  11.    Left            =   1110
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   1395
  14.    ScaleWidth      =   8025
  15.    Top             =   2430
  16.    Width           =   8145
  17.    Begin CUAStatus stsMsg 
  18.       Align           =   2  'Align Bottom
  19.       BackColor       =   &H00C0C0C0&
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   8.25
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   300
  27.       Left            =   0
  28.       TabIndex        =   2
  29.       Top             =   1095
  30.       Width           =   8025
  31.       Begin CUAStatus stsNum 
  32.          BackColor       =   &H00C0C0C0&
  33.          BorderStyle     =   7  'Inset single
  34.          FontBold        =   0   'False
  35.          FontItalic      =   0   'False
  36.          FontName        =   "MS Sans Serif"
  37.          FontSize        =   8.25
  38.          FontStrikethru  =   0   'False
  39.          FontUnderline   =   0   'False
  40.          Height          =   225
  41.          Left            =   7410
  42.          StandardStatus  =   3  'Num
  43.          TabIndex        =   8
  44.          Top             =   45
  45.          Width           =   555
  46.       End
  47.       Begin CUAStatus stsIns 
  48.          BackColor       =   &H00C0C0C0&
  49.          BorderStyle     =   7  'Inset single
  50.          FontBold        =   0   'False
  51.          FontItalic      =   0   'False
  52.          FontName        =   "MS Sans Serif"
  53.          FontSize        =   8.25
  54.          FontStrikethru  =   0   'False
  55.          FontUnderline   =   0   'False
  56.          Height          =   225
  57.          Left            =   6795
  58.          StandardStatus  =   1  'Ins
  59.          TabIndex        =   7
  60.          Top             =   45
  61.          Width           =   555
  62.       End
  63.       Begin CUAStatus stsCaps 
  64.          BackColor       =   &H00C0C0C0&
  65.          BorderStyle     =   7  'Inset single
  66.          FontBold        =   0   'False
  67.          FontItalic      =   0   'False
  68.          FontName        =   "MS Sans Serif"
  69.          FontSize        =   8.25
  70.          FontStrikethru  =   0   'False
  71.          FontUnderline   =   0   'False
  72.          Height          =   225
  73.          Left            =   6180
  74.          StandardStatus  =   2  'Caps
  75.          TabIndex        =   6
  76.          Top             =   45
  77.          Width           =   555
  78.       End
  79.       Begin CUAStatus stsTime 
  80.          BackColor       =   &H00C0C0C0&
  81.          BorderStyle     =   7  'Inset single
  82.          Caption         =   "100%"
  83.          FontBold        =   0   'False
  84.          FontItalic      =   0   'False
  85.          FontName        =   "MS Sans Serif"
  86.          FontSize        =   8.25
  87.          FontStrikethru  =   0   'False
  88.          FontUnderline   =   0   'False
  89.          Height          =   225
  90.          Left            =   5325
  91.          StandardStatus  =   6  'Time
  92.          TabIndex        =   5
  93.          Top             =   45
  94.          Width           =   780
  95.       End
  96.       Begin CUAStatus sts1 
  97.          BackColor       =   &H00C0C0C0&
  98.          BorderStyle     =   7  'Inset single
  99.          Caption         =   "At 2,5cm      Ln 1        Col 1"
  100.          FontBold        =   0   'False
  101.          FontItalic      =   0   'False
  102.          FontName        =   "MS Sans Serif"
  103.          FontSize        =   8.25
  104.          FontStrikethru  =   0   'False
  105.          FontUnderline   =   0   'False
  106.          Height          =   225
  107.          Index           =   1
  108.          Left            =   2775
  109.          TabIndex        =   4
  110.          Top             =   45
  111.          Width           =   2430
  112.       End
  113.       Begin CUAStatus sts1 
  114.          BackColor       =   &H00C0C0C0&
  115.          BorderStyle     =   7  'Inset single
  116.          Caption         =   "Pg 1              Sec 1               1/ 1"
  117.          FontBold        =   0   'False
  118.          FontItalic      =   0   'False
  119.          FontName        =   "MS Sans Serif"
  120.          FontSize        =   8.25
  121.          FontStrikethru  =   0   'False
  122.          FontUnderline   =   0   'False
  123.          Height          =   225
  124.          Index           =   0
  125.          Left            =   135
  126.          TabIndex        =   3
  127.          Top             =   45
  128.          Width           =   2550
  129.       End
  130.    End
  131.    Begin CUACommand cmdOK 
  132.       Caption         =   "OK"
  133.       Default         =   -1  'True
  134.       Height          =   345
  135.       Left            =   6105
  136.       StandardButton  =   1  'OK
  137.       TabIndex        =   0
  138.       Top             =   150
  139.       Width           =   1260
  140.    End
  141.    Begin CUALabel lbl 
  142.       Caption         =   "Status bars are used to bring out commonly requested information to the end user. This is an example of the status line in Word 2.0."
  143.       FontBold        =   0   'False
  144.       FontItalic      =   0   'False
  145.       FontName        =   "MS Sans Serif"
  146.       FontSize        =   8.25
  147.       FontStrikethru  =   0   'False
  148.       FontUnderline   =   0   'False
  149.       ForeColor       =   &H00000080&
  150.       Height          =   765
  151.       Index           =   6
  152.       Left            =   210
  153.       TabIndex        =   1
  154.       Top             =   135
  155.       Width           =   5025
  156.    End
  157. End
  158. Option Explicit
  159.  
  160. Sub cmdOK_Click ()
  161.    Unload Me
  162. End Sub
  163.  
  164.